1 POKE53280,254:POKE53281,251
2 GOSUB 6000
9 PRINT"[147]";
10 PRINT"";CHR$(142):POKE53280,2:POKE53281,0
20 PRINT"                                        ";
21 PRINT"    [209][209][209][209]    [209][209][209][209][209]     [209][209][209][209]    [209][209][209][209][209][209]    ";
22 PRINT"   [209][209]  [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
23 PRINT"   [209][209]       [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
24 PRINT"    [209][209][209][209]    [209][209][209][209][209]    [209][209]  [209][209]     [209][209]      ";
25 PRINT"       [209][209]   [209][209]       [209][209]  [209][209]     [209][209]      ";
26 PRINT"   [209][209]  [209][209]   [209][209]       [209][209]  [209][209]     [209][209]      ";
27 PRINT"    [209][209][209][209]    [209][209]        [209][209][209][209]      [209][209]      ";
28 PRINT"                                        ";
30 PRINT" [146]                                       ";
31 PRINT" [146]   [209][209][209][209]    [209][209]  [209][209]    [209][209][209][209]    [209][209][209][209][209][209]    ";
32 PRINT" [146]  [209][209]  [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
33 PRINT" [146]  [209][209]       [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
34 PRINT" [146]   [209][209][209][209]    [209][209][209][209][209][209]   [209][209]  [209][209]     [209][209]      ";
35 PRINT" [146]      [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
36 PRINT" [146]  [209][209]  [209][209]   [209][209]  [209][209]   [209][209]  [209][209]     [209][209]      ";
37 PRINT" [146]   [209][209][209][209]    [209][209]  [209][209]    [209][209][209][209]      [209][209]      ";
38 PRINT" [146]                                       ";
39 PRINT"                                        [146]";
42 PRINT"[158]PLEASE ENTER THE TIME LIMIT IN THE RANGE OF  (0001 TO 9999) [146] :";
43 PRINT"             [157][157][157][157][157][157][157][157][157][157][157][157][157]";
45 A$="":PRINT"[164]";:Z=0:FORX=1TO5
46 GETB$:IFB$=""THEN46
47 IFB$=CHR$(20)ANDX>1THENX=X-1:PRINTB$;:A$=LEFT$(A$,X-1):PRINT"[157][164]";:GOTO46
48 IFB$=CHR$(20)THEN46
49 IFB$=CHR$(13)THENI=VAL(A$):PRINT :GOTO90
50 IFB$<"0"ORB$>"9"THEN46
51 IFX>4 THEN 46
52 A$=A$+B$:PRINT"[157]"B$"[164]";:NEXT
90 IFI>0 THEN100
91 PRINT"[145]       DO YOU WISH TO QUIT? (Y/N)      "
92 GETA$:IFA$=""THEN92
93 IFA$="Y"ORA$="[217]"THEN680
94 IFA$="N"ORA$="[206]"THENPRINT"[145][145]";:GOTO42
95 GOTO 92
100 PRINT"[147]","   PLEASE WAIT...";:FORC=55296 TO 56295:POKEC,2:NEXTC
101 PRINT"[147]";
102 UU=0:POKE53280,2:POKE53281,15
105 N=PEEK(53278):NN=PEEK(53279)
110 TP$="[144]"
120 T$="[144]TIME=       [157][157][157][157][157][157][157]":S$="SCORE="
130 F$="SPOT SHOT"
140 C$="BLUE=100  YELLOW=75  GREEN=50  RED=25"
400 FORG=0TO2:PRINT"[144]                                        ";:NEXTG
410 PRINTF$;T$;UU;TP$;S$;UU;C$
490 PRINT"          PRESS SPACE TO EXIT           ";:QQ=2
500 B=2024:T=1183:L=INT(RND(1)*(839)+1184)
502 C=81:V=53248:S=54272:GOSUB900:W=1
505 POKE49695,0:POKE49700,192:SYS49693
510 FORM=ITO0STEP-1:X=INT(RND(1)*(4)+1)
520 IFX=1THEN IF(L+1)<BTHENPOKEL+1,C:POKEL,32:L=L+1:GOTO710
530 IFX=2THEN IF(L-1)>TTHENPOKEL-1,C:POKEL,32:L=L-1:GOTO710
540 IFX=3THEN IF(L+40)<BTHENPOKEL+40,C:POKEL,32:L=L+40:GOTO710
550 IFX=4THEN IF(L-40)>TTHENPOKEL-40,C:POKEL,32:L=L-40:GOTO710
590 GOTO 710
600 PRINT"[147]":POKE49695,49:POKE49700,234:SYS49693:POKEV+21,0
610 FORA=STOS+24:POKEA,0:NEXTA
620 PRINT"YOUR SCORE IS ";UU:
630 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183]"
640 PRINT"   DO YOU WISH TO PLAY AGAIN ? (Y/N)"
650 GETHA$:IFHA$=""THEN650
660 IFHA$="Y"THENRESTORE:CLR:GOTO10
661 IFHA$="N"THEN670
662 GOTO 650
670 PRINT"[145]       DO YOU WISH TO QUIT? (Y/N)      "
671 GETA$:IFA$=""THEN671
672 IFA$="N"ORA$="[206]"THENPRINT"[145]";:GOTO640
674 IFA$="Y"ORA$="[217]"THEN 680
675 GOTO 671
680 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
681 IFER<>63 THEN PRINT"[147]":END
682 LOAD"HELLO CONNECT",8,1
684 END
700 REM
710 IFW=1THENPOKEP,190:POKEP+1,190:POKEP+2,190:POKEP+3,190:W=2:GOTO750
720 IFW=2THENPOKEP,191:POKEP+1,191:POKEP+2,191:POKEP+3,191:W=3:GOTO750
730 IFW=3THENPOKEP,192:POKEP+1,192:POKEP+2,192:POKEP+3,192:W=4:GOTO750
740 IFW=4THENPOKEP,193:POKEP+1,193:POKEP+2,193:POKEP+3,193:W=1:GOTO750
750 IFAB=1THENPOKES+11,17:AB=0:GOTO757
755 POKES+11,16:AB=1
757 IFPEEK(1020)>0THENPOKES+4,33:GOTO760
758 POKES+4,32
759 GETA$:IFA$=" "THEN M=0
760 IF PEEK(2) > 0 THEN POKE2,0:POKEL,32:GOTO 765
761 PR=PEEK(787)
762 IFPR>0THEN:POKE782,PR:SYS49706:POKE787,0:POKE53280,PR:QQ=PR
763 GOTO 795
765 IFQQ=6THENUU=UU+100
766 IFQQ=7THENUU=UU+75
767 IFQQ=5THENUU=UU+50
768 IFQQ=2THENUU=UU+25
770 PRINTTP$;S$;UU;
790 L=INT(RND(1)*(839)+1184)
795 PRINTT$;M;:NEXTM:GOTO600
900 :
905 :
960 FORA=STOS+24:POKEA,0:NEXTA:POKES+24,15
965 POKES,250:POKES+1,3:POKES+4,32:POKES+6,240:POKES+7,55:POKES+8,39
970 POKES+13,128
975 P=2040:POKEP,192:POKEP+1,193:POKEP+2,192:POKEP+3,193:POKEP+7,198
976 POKEP+4,194:POKEV+39,6:POKEV+40,7:POKEV+41,5:POKEV+42,2:POKEV+46,1
977 POKEV+28,16:POKEV+37,1:POKEV+38,2
978 POKEV,75:POKEV+1,110:POKEV+2,245:POKEV+3,110:POKEV+4,75:POKEV+5,185
979 POKEV+6,245:POKEV+7,185:POKEV+8,170:POKEV+9,229:POKEV+21,31
980 POKEV+29,15:POKEV+23,15
990 RETURN
6000 IFA>0 THEN 6015
6010 PRINT"[147]"
6015 PRINT""
6020 PRINT
6030 PRINT"           [158]l o a d s t a r"
6040 PRINT"           [155][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
6050 PRINT
6060 PRINT"              [153]pRESENTS"
6070 PRINT
6080 PRINT
6090 PRINT"           s p o t  s h o t"
6100 PRINT
6110 PRINT
6120 PRINT
6130 PRINT"              [159]wRITTEN bY"
6140 PRINT
6150 PRINT"             tHOMAS hAYES"
6160 PRINT
6170 PRINT
6180 PRINT
6190 PRINT
6200 PRINT"            [150]copyright 1987"
6210 PRINT
6220 PRINT"         [158][204]OADING ... [208]LEASE [215]AIT
6221 [139]A[178]0[167]A[178]1:[147]"DATA1",8,1
6222 [139]A[178]1[167]A[178]2:[147]"DATA2",8,1
6230 [153]"ON        (null)RESS PRINT(null)(null)ATNLENVAL (null)O LENONTINUE   "
6240 [153]
6250 [153]"";
6255 [161]A$:[139]A$[179][177]" "[167]6255
6256 [142]